﻿Public Class Nivel

    Dim m_codigo As Integer
    Dim m_codigoDepartamento As Integer
    Dim m_nivel As Integer
    Dim m_salarioMinimo As Double
    Dim m_salarioMaximo As Double

    ''' <summary>
    ''' Instanciacion
    ''' </summary>
    ''' <param name="p_codigo">Codigo</param>
    ''' <param name="p_codigoDepartamento">Codigo del Dept</param>
    ''' <param name="p_nivel">Nivel</param>
    ''' <param name="p_salarioMaximo">Salario Maximo</param>
    ''' <param name="p_salarioMinimo">Salario Minimo</param>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Sub New(ByVal p_codigo As Integer, ByVal p_codigoDepartamento As Integer, ByVal p_nivel As Integer, _
                   ByVal p_salarioMinimo As Double, ByVal p_salarioMaximo As Double)
        codigo = p_codigo
        codigoDepartamento = p_codigoDepartamento
        nivel = p_nivel
        salarioMinimo = p_salarioMinimo
        salarioMaximo = p_salarioMaximo
    End Sub

    ''' <summary>
    ''' Propiedad codigo
    ''' </summary>
    ''' <returns>m_codigo
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Property codigo() As Integer
        Get
            Return m_codigo
        End Get
        Set(ByVal p_codigo As Integer)
            m_codigo = p_codigo
        End Set
    End Property

    ''' <summary>
    ''' Propiedad codigoDepartamento
    ''' </summary>
    ''' <returns>m_codigoDepartamento
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Property codigoDepartamento() As Integer
        Get
            Return m_codigoDepartamento
        End Get
        Set(ByVal p_codigoDepartamento As Integer)
            m_codigoDepartamento = p_codigoDepartamento
        End Set
    End Property

    ''' <summary>
    ''' Propiedad nivel
    ''' </summary>
    ''' <returns>m_nivel
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Property nivel() As Integer
        Get
            Return m_nivel
        End Get
        Set(ByVal p_nivel As Integer)
            m_nivel = p_nivel
        End Set
    End Property

    ''' <summary>
    ''' Propiedad salario Minimo
    ''' </summary>
    ''' <returns>m_salarioMinimo
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Property salarioMinimo() As Double
        Get
            Return m_salarioMinimo
        End Get
        Set(ByVal p_salarioMinimo As Double)
            m_salarioMinimo = p_salarioMinimo
        End Set
    End Property

    ''' <summary>
    ''' Propiedad salarioMaximo
    ''' </summary>
    ''' <returns>m_salarioMaximo
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Property salarioMaximo() As Double
        Get
            Return m_salarioMaximo
        End Get
        Set(ByVal p_salarioMaximo As Double)
            m_salarioMaximo = p_salarioMaximo
        End Set
    End Property

    ''' <summary>
    ''' Retorna un hashtable con los members de la clase.
    ''' </summary>
    ''' <returns>hash con los datos
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Function toHashTable() As Hashtable
        '
        Dim ht As New Hashtable
        ht("codigo") = m_codigo
        ht("codigoDepartamento") = m_codigoDepartamento
        ht("nivel") = m_nivel
        ht("salarioMinimo") = m_salarioMinimo
        ht("salarioMaximo") = m_salarioMaximo
        '
        Return ht
        ''
    End Function

End Class
